www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLabel\D_add_custom_dyn_content_lable.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<LINK href="../css.css" type=text/css rel=stylesheet>
<%
dir_set="../../"
response.charset="gb2312"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->
<!--#include file=../../inc/ajaxLIB.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->
<%
AJAXshowLoader()
%>
<script language="javascript">
var org_pos=1;
var now_pos=org_pos;
function add_p(){
var theTable = document.getElementById("parms");
var rowNumber = parseFloat(theTable.rows.length);
theTable.insertRow(rowNumber);
theTable.rows[rowNumber].id="aaaaba"+now_pos;
//alert(theTable.rows[rowNumber].id);
theTable.rows[rowNumber].insertCell(0);
theTable.rows[rowNumber].cells[0].innerHTML = "<td>标签参数名"+now_pos+":<input name=c"+now_pos+" type=text>,标签参数"+now_pos+"说明:<input name=s"+now_pos+" type=text></td> <a href=# onclick=del_p('"+theTable.rows[rowNumber].id+"')>删除此参数</a>";
var aa = document.getElementById("params_len");
aa.value=now_pos;
now_pos=now_pos+1;
}
function del_p(r){
if (confirm("确认删除?")==1){
var theTable = document.getElementById("parms");
var r1 = document.getElementById(r);
var llln=parseFloat(theTable.rows.length)-1
for(var ia=0;ia<=llln;ia++)
{
if (theTable.rows[ia].id==r){
theTable.deleteRow(ia);
break;
}
}
}
}
</script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;">
<form action="D_step2_add_custom_dyn_content_lable.asp" method="post" name=aaassb1 id="aaassb1">
<table width=730 id="parms" name="parms">
<tr align="left">
<td>
标签保存路径:/Label/custom_Label/<%=request("fpath")%>
</td>
</tr>
<tr align="left">
<td>
<%
sssp=request("fpath")
if sssp<>"" then
sssspq=split(sssp,"/")
ooosss=""
sssr=ubound(sssspq)-1
dddds=sssspq(sssr)
end if
%>
标签名:{$$my_b_
<input name="bnm" type="text" value="">
}（只能为字母，数字及_号的组合）
</td>
</tr>
<tr align="left">
<td>
标签说明:<textarea name="lbsm" cols=40 rows=3></textarea>
</td>
</tr>
</table>
<table>
<tr align="left">
<td>
<br />
<a href=# onclick="add_p();"><font style="font-size:14px" color="#3300FF">点击本处添加更多参数</font></a>
<br /><br />
如标签参数名1 填 name1,标签参数1说明 填 "名字参数"
</td>
</tr>
<tr align="left">
<td height="485" align="center"><table width="98%" height="228" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
<tr>
<td width="19%" height="22"><strong>选择表:</strong></td>
<td width="81%" align="left"><select name="biao1" id="biao1" style="width:250px" onchange="get_list1();">
<option value="xxxxxx23423423xxx">请选择一个表</option>
<%
set rstschema=conn.openschema(20)
Do Until rstSchema.EOF
if LCASE(rstSchema(3))="table" then
%>
<option value="<%=rstSchema(2)%>"><%=rstSchema(2)%></option>
<%
end if
rstSchema.MoveNext
Loop
%>
</select> </td>
</tr>
<tr>
<td height="206"><strong>选择字段：</strong><br />
<br />
<span class="STYLE1">请选择要调用的字段名称,按Ctrl或Shift键多选,将自动生成sql语句</span></td>
<td align="left"><select name="zid1" size="13" multiple="multiple" id="zid1" style="width:250px; overflow:auto" onchange="update_sql()">
</select> </td>
</tr>
</table>
<br />
<table width="98%" height="219" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
<tr>
<td width="19%" height="22"> <strong>sql约束条件1:</strong></td>
<td colspan="3" align="center"> </td>
</tr>
<tr>
<td height="206" rowspan="3"><strong>选择约束字段1(<span class="STYLE1">不可多选</span>)：</strong><br />
<br /></td>
<td width="38%" rowspan="3" align="center"><select name="zid22" size="13" id="zid22" style="width:250px; overflow:auto" onchange="update_sql()">
</select> </td>
<td width="13%" align="center"> </td>
<td width="30%" height="64" align="left">
<font style="font-size:12px" color="#3300FF">在以下的 <strong>输入框</strong>中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值 <br />
还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值， <br />
而用$xx_request_asp$i可以读request("i")的值,注意单引号的使用</font> ：</td>
</tr>
<tr>
<td width="13%" align="center"><select name="sff" id="sff" onchange="update_sql();">
<option value="xx">请选择约束条件</option>
<option value="=">=</option>
<option value=">">></option>
<option value="<"><</option>
<option value=">=">>=</option>
<option value="<="><=</option>
</select>
</td>
<td height="43" align="center"><input name="ystj1" type="text" id="ystj1" value="" onchange="update_sql();"/></td>
</tr>
<tr>
<td width="13%" align="center"> </td>
<td height="90" align="center"> </td>
</tr>
</table></td>
</tr>
<iframe id="ajaxdblist" name="ajaxdblist" width="0" height="0"></iframe>
<script language="javascript">
function get_list1(){
var biaon1=document.aaassb1.biao1.value;
document.getElementById("ajaxdblist").src="D_ajax_get_db_biao_ziduan_list_t.asp?back=zid1&back2=zid22&biao="+biaon1;
//document.write("D_ajax_get_db_biao_ziduan_list.asp?back=zid1&biao="+biaon1);
}
function get_list2(){
var biaon2=document.aaassb1.biao2.value;
document.getElementById("ajaxdblist").src="D_ajax_get_db_biao_ziduan_list.asp?back=zid2&biao="+biaon2;
}
function update_sql(){
var zid22=document.getElementById("zid22");
var selec1="";
for(var i=0;i<zid22.options.length;i++)
{
if(zid22.options[i].selected==true) {
selec1= zid22.options[i].text;
break;
}
}
var biaon1=document.aaassb1.biao1.value;
zid1=document.getElementById("zid1");
var sql="select "
if (biaon1!="xxxxxx23423423xxx"){
for(var i=0;i<zid1.options.length;i++)
{
if(zid1.options[i].selected==true|selec1==zid1.options[i].text) {
sql =sql +"[" + biaon1+"]."+ zid1.options[i].text ;
sql =sql +",";
}
}
var n1=sql.substring(sql.length-1,sql.length);
if (n1!=","){sql=sql+","}
}
var n2=sql.substring(sql.length-1,sql.length);
if (n2==","){
sql=sql.substring(0,sql.length-1);
}
sql=sql+" from ";
if (biaon1!="xxxxxx23423423xxx"){
sql=sql +"[" +biaon1+"]";
}
var sff1=document.aaassb1.sff.value;
var vvvv=document.aaassb1.ystj1.value;
if ((biaon1!="xxxxxx23423423xxx")&&(sff1!="xx")&&(selec1!="")){
sql=sql+" where "+"[" + biaon1+"]."+selec1+sff1+vvvv;
}
document.getElementById("slqms").value=sql;
}
</script>
<tr align="left">
<td height="211" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">
<tr>
<td width="12%" height="57"> </td>
<td width="88%" align="left"><font style="font-size:14px" color="#3300FF">在以下的 <strong>查询sql语句</strong>中 可以用 如 $xxvar$a来调用标签的参数列表里的a参数的值 <br />
还可以用$xx_var_asp$i来调用页面里asp代码中的i变量的值， <br />
而用$xx_request_asp$i可以读request("i")的值 . 并可以自定义where子句
<br>
,注意 如$xx_var_asp$i要用空格或'号或%号或,号或)号或]号来结束，<br>
如where aaa=$xx_var_asp$i and.... 是对的 <br>
而where aaa=$xx_var_asp$iand....是错的 <br>
</font></td>
</tr>
<tr>
<td width="12%" height="147"><strong>查询sql语句</strong>：</td>
<td align="center"><textarea name="slqms" cols="85" rows="10" id="slqms"></textarea></td>
</tr>
</table></td>
</tr>
<tr align="center" width=600>
<td>
<input type="hidden" name=fpath value="<%=request("fpath")%>" />
<input type="hidden" name="params_len" id="params_len" value="" />
<input type="hidden" name=p_page value="<%=request("p_page")%>"/>
<input type="submit" value="下一步" />
</td>
</tr>
</table>
</form>
</div>
<script language=javascript>
var aa = document.getElementById("params_len");
aa.value=0;
add_p();
add_p();
add_p();
add_p();
add_p();
AJAXfade(1,'l_do');
</script>
<%
AJAXcloseLoader()
%>
</html>